MASPC 1

home *** CD-ROM | disk | FTP | other *** search

/ MASPC 1 / MASPC_1.iso / Demos / Demo DIV / DATA / PRG / JUEGOS / FOSTIATO.PRG < prev next >

Wrap

Text File | 1997-12-01 | 54.8 KB | 1,448 lines

//------------------------------------------------------------------------------ // TITULO: FOSTIATOR // AUTOR: DANIEL NAVARRO // FECHA: 15/06/97 //------------------------------------------------------------------------------ PROGRAM fostiator; CONST // Distintos estados de los muñecos _parado=0; _avanzando=1; _retrocediendo=2; _agachándose=3; _agachado=4; _levantándose=5; _saltando=6; _golpe_bajo=7; _puñetazo=8; _patada_giratoria=9; _patada_normal=10; _patada_aérea=11; _tocado=12; _muerto=13; // Distintas posiciones de los muñecos saltar=0; agacharse=1; avanzar=2; retroceder=3; golpear=4; // Tipo de control del muñeco control_teclado1=1; control_teclado2=2; control_ordenador=0; default_fps=24; // Numero de imágenes por segundo GLOBAL // Secuencia de animacin de cada uno de los estados de los muñecos anim0[]=1,1,1,14,14,15,15,16,16,17,17,17,16,16,15,15,14,14; anim1[]=1,2,3,4,5,6,7,8; anim2[]=1,8,7,6,5,4,3,2; anim3[]=8,9,10,11,12,13; anim4[]=13; anim5[]=13,12,11,10,9,8; anim6[]=18,19,20,21,21,22,22,22,22,23,23,23,23,24,24,24,24,24,24,24,24; anim7[]=52,54,54,54,54,53,53,52,51; anim8[]=25,26,27,28,28,28,28,27,27,26,25; anim9[]=29,30,31,32,33,33,34,35,36,37,38,39; anim10[]=29,30,31,32,32,32,31,31,30,30,29; anim11[]=18,19,20,21,21,22,22,24,40,41,41,41,41,41,41,41,41,41,41,41,41,41; anim12[]=1,42,42,43,43,42,42; anim13[]=1,42,42,43,43,44,44,45,45,46,46,47,47,48,48,49,49,50; s_golpe1; // Identificadores de sonidos s_golpe2; s_golpe3; s_tocado1; s_tocado2; s_tocado3; s_aire1; s_aire2; s_aire3; s_aire4; s_aire5; s_muerto; id_luchador1,id_luchador2; // Identificador de ambos combatientes id_auxiliar; // Identificador auxiliar combates1; // Numero de combates que ha ganado el primero combates2; // Numero de combates que ha ganado el segundo estado_juego; // 0-parado, 1-jugando, 2-fin combate escenario; // Escenario de lucha 0 / 1 luchador1=1; // 0-Ripley, 1-Bishop, 2-Alien, 3-Nostromo luchador2=2; // 0-Ripley, 1-Bishop, 2-Alien, 3-Nostromo nivel=1; // Dificultad del juego (0..2) modo; // Modo de juego (ver modos[]) sangre=1; // Nivel de sangre (ver sangres[]) // Textos de las opciones de combate nombres[]="RIPLEY","BISHOP","ALIEN","NOSTROMO"; escenarios[]="ESCENARIO 1 : CASTILLO IKA","ESCENARIO 2 : LA CUEVA","ESCENARIO 3: DESIERTO"; niveles[]="DIFICULTAD : FACIL","DIFICULTAD : NORMAL","DIFICULTAD : DIFICIL"; modos[]="ORDENADOR contra ORDENADOR"," TECLAS CURSOR contra ORDENADOR", "TECLAS QA-RT-X contra ORDENADOR","TECLAS QA-RT-X contra TECLAS CURSOR"; sangres[]="NIVEL DE SANGRE : NINGUNA","NIVEL DE SANGRE : NORMAL","NIVEL DE SANGRE : EXTASIS"; struct texto[6] // Textos donde se guardan las opciones del combate x,y; codigo; END = 320,480,0, 320,90,0, 320,120,0, 320,150,0, 100,364,0, 320,364,0, 540,364,0; opción; // Opción seleccionada del menú opción_anterior; esc_pulsado; // Indica si se ha abortado con ESC grises[255]= // Tabla de conversión de los colores a grises 0,236,203,220,159,156,155,153,151,150,134,89,90,92,94,94, 45,46,69,59,103,93,90,134,150,151,155,156,159,220,203,236, 41,43,46,47,69,59,101,94,40,41,43,43,44,45,46,47, 40,41,44,45,45,46,47,68,69,58,58,59,58,58,106,101, 43,45,47,47,47,68,68,68,68,58,59,101,101,101,59,59, 45,59,101,94,90,90,90,90,90,89,90,90,90,93,94,94, 69,59,58,106,103,101,101,103,101,101,59,59,94,92,94,93, 101,94,93,93,94,92,93,89,89,134,134,134,151,150,150,153, 101,90,89,90,134,134,134,134,134,90,89,134,134,150,150,151, 103,134,134,134,150,150,150,151,153,153,153,155,156,156,159,159, 90,89,150,151,153,155,156,219,219,220,223,203,203,203,236,235, 134,150,150,151,153,153,153,151,155,156,156,159,220,223,236,237, 134,153,155,156,156,159,219,220,220,201,203,203,201,203,203,236, 151,155,156,156,219,219,220,159,155,155,159,219,220,219,220,223, 151,159,153,155,220,220,159,155,223,236,235,235,236,237,238,237, 155,153,203,223,237,238,247,247,248,247,238,237,235,236,203,220; sangre_total; // Partículas de sangre que se han quedado en el mapa ángulo_texto; // Movimiento del texto en las opciones LOCAL estado; // Indicador de la animación actual paso; // Paso de la animación actual inc_y,inc_x; // Desplazamientos del muñeco enemigo; // Identificador del enemigo tipo_control; // Dispositivo que controla al muñeco energía; // Energía de muñeco PRIVATE codigo_mapa; // Pantalla de fondo cargada en ese momento codigo_mapa2; contador0; // Contador de uso general idtexto; BEGIN set_mode(m640x480); // Selecciona modo de vídeo max_process_time=1500; // Deja más tiempo para que se ejecuten los procesos priority=-10; // Pone muy poca prioridad intro(); // Ejecuta la intro del juego FRAME; // Necesario para parar este proceso LOOP // Bucle principal set_fps(100,0); // Numero de imágenes por segundo codigo_mapa=load_map("fostiato\menu.map"); // Carga la pantalla del menú load_pal("fostiato\menu.map"); put_screen(0,codigo_mapa); // Pone la pantalla del menú unload_map(codigo_mapa); // Y la descarga de memoria para así tener mas fade_on(); // Enciende la pantalla opcion=0; // Inicializa la variable de opciones WHILE (opcion==0) // Bucle del menú de presentación IF (key(_1) OR key (_enter)) opcion=1; END // Juego IF (key(_2) OR key (_esc)) opcion=2; END // Salir FRAME; END fade_off(); // Apaga la pantalla IF (opcion==2) // Opcion elegida: Salir del juego créditos(); // Pone los créditos signal(id,s_kill); // Elimina este proceso FRAME; // Y acaba. END // Carga los gráficos de la pantalla de opciones codigo_mapa=load_map("fostiato\opciones.map"); load_pal("fostiato\opciones.map"); put_screen(0,codigo_mapa); // Pone el gráfico de fondo unload_map(codigo_mapa); // Descarga el gráfico de memoria opcion=0; // Inicializa la variable de opciones ángulo_texto=0; // Pone a cero el ángulo de desplazamiento del texto seleccionado muestra_información(); // Imprime todos los textos y gráficos fade_on(); // Enciende la pantalla LOOP // Mueve el texto que este seleccionado en ese momento move_text(texto[opción].codigo,texto[opción].x+get_disty(ángulo_texto,8),texto[opción].y); opción_anterior=opcion; // Guarda la opción para no cambiar bruscamente // Lee las teclas IF (key(_right) OR key(_down)) opcion++; END IF (key(_left) OR key(_up)) opción--; END // Se ha cambiado a otra opción IF (opción<>opción_anterior) // Espera a que se pare WHILE (get_disty(ángulo_texto,8)<>0) ángulo_texto+=22500; move_text(texto[opción_anterior].codigo, texto[opción_anterior].x+get_disty(ángulo_texto,8), texto[opción_anterior].y); FRAME; END // Normaliza las opciones IF (opcion==7) opcion=0; END IF (opcion==-1) opcion=6; END // Espera a soltar la tecla WHILE (key(_right) OR key(_down) OR key(_left) OR key(_up)) FRAME; END ELSE ángulo_texto+=22500; // Sigue moviendo el texto END // Se ha elegido una opción IF (key(_enter) OR key(_space) OR key (_control)) SWITCH(opción) // Empieza el juego CASE 0: BREAK; END // Modo de juego (1/2 jugadores) CASE 1: modo++; IF (modo==4) modo=0; END END // Nivel de juego (Fácil/Difícil) CASE 2: nivel++; IF (nivel==3) nivel=0; END END // Nivel de aparición de sangre CASE 3: sangre++; IF (sangre==3) sangre=0; END END // Selecciona muñeco del jugador 1 CASE 4: luchador1++; IF (luchador1==4) luchador1=0; END END // Selecciona el escenario CASE 5: escenario++; IF (escenario==3) escenario=0; END END // Selecciona muñeco del jugador 2 CASE 6: luchador2++; IF (luchador2==4) luchador2=0; END END END muestra_información(); // Actualiza la información de pantalla WHILE (key(_enter) OR key(_space) OR key (_control)) // Espera a soltar la tecla FRAME; END END IF (key(_esc)) // Se ha pulsado 'escape' esc_pulsado=1;// Pone variable a 1 la variable de escape pulsado BREAK; // Y sale del bucle END FRAME; END IF (esc_pulsado) // Sale del menú de opciones si se pulso escape esc_pulsado=0; // Pone a a cero la variable para la proxima vez fade_off(); // Apaga la pantalla let_me_alone(); // Deja unicamente el proceso principal(este) delete_text(all_text);//Borra cualquier texto que hubiera CONTINUE; // Sale del siguiente bucle END // Carga los gráficos necesarios para el escenario elegido SWITCH (escenario) CASE 0: codigo_mapa=load_map("fostiato\fondo1.map"); codigo_mapa2=load_map("fostiato\paisaje1.map"); END CASE 1: codigo_mapa=load_map("fostiato\fondo2.map"); codigo_mapa2=load_map("fostiato\paisaje2.map"); END CASE 2: codigo_mapa=load_map("fostiato\fondo3.map"); codigo_mapa2=load_map("fostiato\paisaje1.map"); END END // Carga los gráficos necesarios para el jugador 1 SWITCH(luchador1) CASE 0: load_fpg("fostiato\mujer.fpg"); END CASE 1: load_fpg("fostiato\hombre1.fpg"); END CASE 2: load_fpg("fostiato\esquelet.fpg"); END CASE 3: load_fpg("fostiato\hombre2.fpg"); END END // Carga los gráficos necesarios para el jugador 2 SWITCH(luchador2) CASE 0: load_fpg("fostiato\mujer.fpg"); END CASE 1: load_fpg("fostiato\hombre1.fpg"); END CASE 2: load_fpg("fostiato\esquelet.fpg"); END CASE 3: load_fpg("fostiato\hombre2.fpg"); END END // Si los jugadores son iguales convierte uno de ellos a grises IF (luchador1==luchador2) FROM contador0=1 TO 54; // Cambia los 54 primeros gráficos del fichero // a la paleta de grises convert_palette(2,contador0,&grises); END convert_palette(2,100,&grises);// También convierte los gráficos convert_palette(2,101,&grises);// pequeños de las carras END combates1=0; // Inicializa las variables del juego combates2=0; sangre_total=0; REPEAT // Bucle del juego fade_off(); // Apaga la pantalla // Borra los textos, procesos o 'scrolles' que hubiera abiertos let_me_alone(); delete_text(all_text); stop_scroll(0); clear_screen(); // Selecciona el numero de pantallas por segundo y el tipo de restauración set_fps(100,0); restore_type=complete_restore; // Pone la pantalla a blanco fade(200,200,200,8); WHILE (fading) FRAME; END //Espera mientras enciende la pantalla // Cambia el tipo de restauración de pantalla para ganar velocidad restore_type=no_restore; estado_juego=0; // Para el juego para poner todo // Inicializa el scroll start_scroll(0,0,codigo_mapa,codigo_mapa2,0,0); scroll.x0=160; // Crea los muñecos que se han seleccionado // y el tipo de control de los mismos SWITCH(modo) // Ordenador contra ordenador CASE 0: id_luchador1=muñeco(260,440,1,1,control_ordenador,luchador1); id_luchador2=muñeco(700,440,2,0,control_ordenador,luchador2); END // Jugador contra ordenador CASE 1: id_luchador1=muñeco(260,440,1,1,control_teclado1,luchador1); id_luchador2=muñeco(700,440,2,0,control_ordenador,luchador2); END // Ordenador contra jugador CASE 2: id_luchador1=muñeco(260,440,1,1,control_teclado2,luchador1); id_luchador2=muñeco(700,440,2,0,control_ordenador,luchador2); END // Jugador contra jugador CASE 3: id_luchador1=muñeco(260,440,1,1,control_teclado2,luchador1); id_luchador2=muñeco(700,440,2,0,control_teclado1,luchador2); END END // Inicializa las variables enemigo de los muñecos que son // identificadores al proceso del enemigo id_luchador1.enemigo=id_luchador2; id_luchador2.enemigo=id_luchador1; objetos(0,320,49,200,0,0); // Pone los marcadores de energía objetos(0,194,38,201,0,1); objetos(0,446,38,202,0,2); define_region(1,0,0,640,480); // Define las regiones para el movimiento define_region(2,0,0,640,480); // de pantalla // Escribe el nombre del escenario write(1,320,0,1,escenarios[escenario]); // Pone las fotos y los nombres de los muñecos objetos(id_luchador1.file,44,52,100+combates2,1,0); write(1,45,100,1,nombres[luchador1]); objetos(id_luchador2.file,596,52,100+combates1,0,0); write(1,596,100,1,nombres[luchador2]); // Crea las estrellas que marcan los combates ganados crea_estrellas(); // Pone el mensaje de inicio de combate SWITCH(combates1+combates2) CASE 0: idtexto=write(2,320,200,4,"ASALTO 1"); END CASE 1: idtexto=write(2,320,200,4,"ASALTO 2"); END CASE 2: idtexto=write(2,320,200,4,"ASALTO 3"); END END fade(100,100,100,10); // Muestra la pantalla WHILE (fading) FRAME; END // Dependiendo del nivel el juego va mas o menos rápido set_fps(default_fps+nivel*2,8); FRAME(4800); // Hace una pequeña pausa // Borra el texto de inicio de combate delete_text(idtexto); estado_juego=1; // Quita la pausa al juego REPEAT // Bucle de cada combate // Coloca el scroll dependiendo de las posiciones de los luchadores scroll.x0=(id_luchador1.x+id_luchador2.x)/4-80; FRAME; // Actualiza los marcadores define_region(1,296-id_luchador1.energia,28,id_luchador1.energia+1,20); define_region(2,345,29,id_luchador2.energia+1,20); // Comprueba si se ha pulsado 'escape' IF (key(_esc)) esc_pulsado=1; END // Repite hasta que se pulse escape o gane algun luchador UNTIL (estado_juego==2 OR esc_pulsado) // Si no se ha pulsado escape es que alguno ha ganada IF (NOT esc_pulsado) IF (id_luchador1.energia==0) // Gana el jugador 2 combates2++; ELSE combates1++; // Gana el jugador 1 END crea_estrellas(); // Actualiza las estrellas FRAME(4800); END // Repite hasta que algun jugador gane dos combates UNTIL (combates1==2 OR combates2==2 OR esc_pulsado) // Si no se ha pulsado 'escape' pon el final de la lucha IF (NOT esc_pulsado) // Pon el numero de imágenes por segundo como en el menú set_fps(100,0); fade(200,200,200,10); // Pone la pantalla a blanco WHILE (fading) FRAME; END // Espera hasta que se ponga blanca // Pone el nombre del que ha ganado IF (combates1==2) write(2,320,160,4,nombres[luchador1]); ELSE write(2,320,160,4,nombres[luchador2]); END // Y el mensaje de gana write(2,320,220,4,"GANA"); fade(100,100,100,10); // Enciende pantalla WHILE (fading) FRAME; END // Espera hasta que se encienda // Pone el numero de imágenes por segundo como en el juego set_fps(default_fps+nivel*2,8); FRAME(9600); // Espera un rato ELSE // Actualiza la variable que guarda la pulsación de 'escape' esc_pulsado=0; END fade_off(); // Apaga la pantalla // Inicializa todo, borra procesos, textos pendientes, scrolles, etc stop_scroll(0); // Para scroll unload_fpg(1); // Descarga ficheros de gráficos unload_fpg(2); unload_map(codigo_mapa); // Descarga mapas gráficos unload_map(codigo_mapa2); let_me_alone(); // Borra procesos delete_text(all_text); // Borra textos // Cambia la forma de restaurar la pantalla restore_type=complete_restore; END END //------------------------------------------------------------------------------ // Proceso muestra_informacion // Pone los textos y los gráficos de la pantalla de opciones //------------------------------------------------------------------------------ PROCESS muestra_información() BEGIN // Borra todo para luego imprimirlo actualizado delete_text(all_text); // Borra cualquier texto pendiente signal(id_luchador1,s_kill); // Elimina los procesos de los muñecos signal(id_luchador2,s_kill); signal(id_auxiliar,s_kill); // Pone los textos no seleccionables write(2,320,0,1,"OPCIONES"); write(2,320,156,1,"CONTRA"); // Pone textos seleccionables texto[0].codigo=write(2,320,480,7,"EMPEZAR JUEGO"); texto[1].codigo=write(1,320,90,1,modos[modo]); texto[2].codigo=write(1,320,120,1,niveles[nivel]); texto[3].codigo=write(1,320,150,1,sangres[sangre]); // Pone los gráficos de los muñecos y del escenario elegidos id_luchador1=objetos(0,100,256,310+luchador1,1,0); id_luchador2=objetos(0,540,256,310+luchador2,0,0); id_auxiliar=objetos(0,320,300,300+escenario,0,0); // Pone los textos de los muñecos y del escenario elegido texto[4].codigo=write(1,100,364,1,nombres[luchador1]); texto[5].codigo=write(1,320,364,1,escenarios[escenario]); texto[6].codigo=write(1,540,364,1,nombres[luchador2]); // Mueve el texto que esta seleccionado move_text(texto[opción].codigo, texto[opción].x+get_disty(ángulo_texto,8), texto[opción].y); END //------------------------------------------------------------------------------ // Proceso control // Mueve los muñecos, bien por teclado o controlados por el ordenador // Entradas: 'acción' : Acción ha comprobar si se hace //------------------------------------------------------------------------------ PROCESS control(acción) PRIVATE dist; // Distancia entre los muñecos BEGIN // Comprueba que el juego no este en pausa IF (estado_juego<>1) return(0); END // Lee la tecla dependiendo del tipo de control SWITCH(father.tipo_control) // Mira quien maneja el muñeco CASE control_teclado1: // Si se controla con el teclado1 // Va mirando que acción se quiere hacer // Y leyendo las teclas que se usan para ello SWITCH(acción) // Mira que acción se esta comprobando CASE saltar: RETURN(key(_up)); // Devuelve TRUE si esta pulsada la tecla END CASE agacharse: RETURN(key(_down)); END CASE avanzar: IF (father.flags) // Dependiendo hacia donde mire RETURN(key(_right)); // Lee una tecla... ELSE RETURN(key(_left)); // O la otra END END CASE retroceder: IF (father.flags) RETURN(key(_left)); ELSE RETURN(key(_right)); END END CASE golpear: RETURN(key(_control)); END END END CASE control_teclado2: // Se esta usando el teclado 2 SWITCH(acción) // Se comprueba igual que antes. CASE saltar: RETURN(key(_q)); END CASE agacharse: RETURN(key(_a)); END CASE avanzar: IF (father.flags) RETURN(key(_t)); ELSE RETURN(key(_r)); END END CASE retroceder: IF (father.flags) RETURN(key(_r)); ELSE RETURN(key(_t)); END END CASE golpear: RETURN(key(_x)); END END END CASE control_ordenador: // Lo maneja el ordenador dist=abs(id_luchador1.x-id_luchador2.x); // Halla la distancia entre los muñecos SWITCH(father.estado) // Mira que se quiere comprobar // Va mirando que acción se quiere hacer // Y se comprueba si es conveniente CASE _parado: SWITCH(acción) CASE saltar: // Si se esta a distancia correcta y... // da la suerte devuelve TRUE IF (dist<160 AND rand(0,35)==0) RETURN(1); END END CASE agacharse: // Igual para las demás acciones IF (dist<160 AND rand(0,25)==0) RETURN(1); END END CASE avanzar: IF (dist>400) IF (rand(0,4)==0) RETURN(1); END ELSE IF (dist>120 AND rand(0,8)==0) RETURN(1); END END END CASE retroceder: IF (dist<180 AND rand(0,25)==0) RETURN(1); END IF (dist<80 AND rand(0,5)==0) RETURN(1); END END CASE golpear: IF (dist<180 AND dist>60 AND rand(0,5)==0) RETURN(1); END END END END CASE _avanzando: SWITCH(acción) CASE saltar: IF (dist>180 AND dist<300 AND rand(0,8)==0) RETURN(1); END END CASE golpear: IF (dist<140) RETURN(1); END END END END CASE _retrocediendo: SWITCH(acción) CASE saltar: IF (dist<120 AND rand(0,6)==0) RETURN(1); END END CASE golpear: IF (dist>70 AND dist<150) RETURN(1); END END END END CASE _agachado: SWITCH(acción) CASE agacharse: IF (rand(0,5)<>0) RETURN(1); END END CASE golpear: IF (dist<180 AND rand(0,5)==0) RETURN(1); END END END END CASE _saltando: SWITCH(acción) CASE golpear: IF (rand(0,10)==0) RETURN(1); END END END END END // Si la acción es correcta se devuelve 1, si no 0 RETURN(0); // No hace ninguna acción END END END //------------------------------------------------------------------------------ // Proceso muñeco // Maneja todos los tipo de muñeco // Entradas: 'x,y' : Coordenadas iniciales // 'file' : Fichero donde están los gráficos // 'flags' : Hacia donde mira el muñeco (izq./der.) // 'tipo_control' : Quien maneja al muñeco (teclado1/teclado2/cpu) // 'luchador' : Cual es de los dos luchadores //------------------------------------------------------------------------------ PROCESS muñeco(x,y,file,flags,tipo_control,luchador) PRIVATE nuevo_estado; // Variable temporal para el estado del muñeco nuevo_paso; // Variable temporal para la posición de la animación del muñeco golpe_x,golpe_y; // Variables para guardar los puntos de control de los golpes // Fuerza de cada uno de los golpes fuerza_golpe[]=35,35,55,35,35; contador0; // Contador de uso general suma_fuerza; // Fuerza variable dependiendo del nivel y del luchador BEGIN ctype=c_scroll; // Lo introduce dentro del scroll energia=203; // Inicializa la energía FRAME; sombra(); // Crea la sombra del muñeco IF (tipo_control<>0) // Si el ordenador no lleva este muñeco IF (enemigo.tipo_control==0) // Pero lleva el del enemigo SWITCH(nivel) // Dependiendo del nivel de juego (dificultad) CASE 1: suma_fuerza=-10; END // Hace que los golpes quiten menos energia CASE 2: suma_fuerza=-18; END END ELSE suma_fuerza=10; // Humano vs Humano, iguala las fuerzas END END SWITCH(luchador) // Dependiendo del tipo de luchador CASE 0: suma_fuerza-=8; END // Ripley pega menos CASE 1: suma_fuerza+=6; END // Bishop es el segundo que pega más CASE 2: suma_fuerza+=4; END // Alien es el segundo que pega menos CASE 3: suma_fuerza+=8; END // Nostrodomo pega más que nadie END // Actualiza la fuerza de los golpes según los jugadores FROM contador0=0 TO 4; fuerza_golpe[contador0]+=suma_fuerza; END LOOP nuevo_estado=estado; // Actualiza la variable temporal del estado del muñeco SWITCH(estado) // Comprueba el estado del muñeco CASE _parado: graph=anim0[paso++]; // Anima el gráfico IF (paso==sizeof(anim0)) // Si no hay mas gráficos en la animación paso=0; // Empieza desde 0 END IF (flags) // Hace que los muñecos se miren IF (enemigo.x<x) flags=0; END ELSE IF (enemigo.x>x) flags=1; END END // Comprueba si se quiere cambiar de estado IF (control(golpear)) // Comprueba si se quiere golpear nuevo_estado=_puñetazo; // Y golpea... END IF (control(saltar)) // Comprueba si se quiere saltar nuevo_estado=_saltando; // Y salta... inc_y=-16; inc_x=0; // Inicializa los incrementos para el salto END IF (control(agacharse)) // Comprueba si se quiere agachar nuevo_estado=_agachándose; // Y se agacha... END IF (control(retroceder)) // Comprueba si se quiere retroceder nuevo_estado=_retrocediendo;// Y retrocede... END IF (control(avanzar)) // Comprueba si se quiere avanzar nuevo_estado=_avanzando;// Y avanza... END END CASE _avanzando: // Si se esta avanzando graph=anim1[paso++]; // Anima el gráfico IF (paso==sizeof(anim1)) // Comprueba que no se ha llegado al final de la animación nuevo_estado=_parado; // Y si se ha llegado cambia de estado END IF (flags) // Mueve el muñeco según donde mire x+=4; ELSE x-=4; END // Comprueba si se quieren hacer otras acciones IF (control(golpear)) // Se quiere golpear nuevo_estado=_patada_normal; END IF (control(saltar)) // Se quiere saltar nuevo_estado=_saltando; inc_y=-16; IF (flags) inc_x=12; ELSE inc_x=-12; END END END CASE _retrocediendo: // Mira si se esta retrocediendo graph=anim2[paso++]; // Anima el gráfico IF (paso==sizeof(anim2)) // Si se ha llegado al final nuevo_estado=_parado; // Cambia de estado END IF (flags) // Lo mueve según a donde mire x-=4; ELSE x+=4; END // Se mira si se quieren hacer otras acciones posibles IF (control(golpear)) nuevo_estado=_patada_giratoria; inc_y=-10; END IF (control(saltar)) nuevo_estado=_saltando; inc_y=-16; IF (flags) inc_x=-8; ELSE inc_x=8; END END END CASE _agachándose: // Comprueba si se esta agachándose graph=anim3[paso++]; // Haz la animación IF (paso==sizeof(anim3)) // Hasta que se llegue al final nuevo_estado=_agachado; // Y pasa al estado de agachado END END CASE _agachado: // Comprueba si esta agachado graph=anim4[0]; // Pone el gráfico necesario IF (flags) // Pone al gráfico mirando al otro IF (enemigo.x<x) flags=0; END ELSE IF (enemigo.x>x) flags=1; END END // Comprueba si se quiere hacer otras acciones IF (control(golpear)) // Comprueba si se quiere golpear nuevo_estado=_golpe_bajo; END IF (NOT control(agacharse)) // Si no quiere agacharse nuevo_estado=_levantándose; // Se pone levantándose END END CASE _levantándose: // Comprueba si esta levantándose graph=anim5[paso++]; // Anímalo IF (paso==sizeof(anim5)) // Si se acabado nuevo_estado=_parado; // Cambia de estado a parado END END CASE _saltando: // Comprueba si se esta saltando graph=anim6[paso++]; // Anima los gráficos IF (paso>4) // Si se ha llegado al punto de la animación x+=inc_x; // Mueve al muñeco y+=inc_y*3; inc_y+=2; // Cambia el incremento para que bote IF (y>=440) // Comprueba si ha tocado el suelo y=440; polvo(x,y); // Crea polvo cuando cae // Mira si se quiere saltar otra vez IF (control(saltar)) nuevo_estado=_parado; ELSE nuevo_estado=_agachándose; END END END IF (control(golpear)) // Comprueba si se quiere golpear nuevo_estado=_patada_aérea; nuevo_paso=paso; END END // Comprueba si se esta se hace el golpe bajo CASE _golpe_bajo: graph=anim7[paso++]; // Anima el gráfico IF (paso==sizeof(anim7)) // Si se acaba la animación nuevo_estado=_agachado; // Se pone en otro estado END IF (flags) // Comprueba hacia donde mira x++; // Y se mueve un poco ELSE x--; END // Si se ha llegado al punto de la animación correcto IF (paso==2) sound(s_aire1,rand(50,75),256); // Realiza sonido get_real_point(1,&golpe_x,&golpe_y); // Coge los puntos de control del puño golpe(golpe_x,golpe_y,fuerza_golpe[0]); // Y comprueba si se ha tocado IF (fuerza_golpe[0]>2) // Reduce la fuerza de golpe fuerza_golpe[0]--; // para la próxima vez END END END // Comprueba si se esta haciendo la acción puñetazo CASE _puñetazo: graph=anim8[paso++]; // Anima el gráfico IF (paso==sizeof(anim8)) // Hasta que se acabe la animación nuevo_estado=_parado; // Y cambia a un nuevo estado END IF (flags) // Comprueba hacia donde mira x++; // Y se mueve ELSE x--; END IF (paso==4) // Si se ha llegado al punto de la animación // Realiza el golpe sound(s_aire2,rand(50,75),256); get_real_point(1,&golpe_x,&golpe_y); // Halla el punto donde se dara el golpe golpe(golpe_x,golpe_y,fuerza_golpe[1]); // Comprueba si se da el golpe IF (fuerza_golpe[1]>2) // Quita fuerza al golpe fuerza_golpe[1]--; END END END CASE _patada_giratoria: // Comprueba la patada giratoria como los anteriores golpes graph=anim9[paso++]; IF (paso==sizeof(anim9)) nuevo_estado=_parado; END y+=inc_y; inc_y+=2; IF (y>440) y=440; END IF (paso==5) sound(s_aire3,rand(50,75),256); get_real_point(1,&golpe_x,&golpe_y); golpe(golpe_x,golpe_y,fuerza_golpe[2]); IF (fuerza_golpe[2]>2) fuerza_golpe[2]--; END END END CASE _patada_normal: // Comprueba la patada normal graph=anim10[paso++]; IF (paso==sizeof(anim10)) nuevo_estado=_parado; END IF (paso==4) sound(s_aire4,rand(50,75),256); get_real_point(1,&golpe_x,&golpe_y); golpe(golpe_x,golpe_y,fuerza_golpe[3]); IF (fuerza_golpe[3]>2) fuerza_golpe[3]--; END END END CASE _patada_aérea: // Comprueba la patada aérea graph=anim11[paso++]; IF (paso>4) x+=inc_x; y+=inc_y*3; inc_y+=2; IF (y>=440) y=440; polvo(x,y); IF (control(saltar)) nuevo_estado=_parado; ELSE nuevo_estado=_agachándose; END END END IF (paso==10 OR paso==19) sound(s_aire5,rand(50,75),256); get_real_point(1,&golpe_x,&golpe_y); golpe(golpe_x,golpe_y,fuerza_golpe[4]); IF (fuerza_golpe[4]>2) fuerza_golpe[4]--; END END END CASE _tocado: // Comprueba si el muñeco ha sido tocado graph=anim12[paso++]; // anima el gráfico IF (paso==sizeof(anim12)) // Hasta que acabe // Haz un sonido al azar de los que tiene SWITCH(rand(0,3)) CASE 0: sound(s_golpe1,rand(25,50),256); END CASE 1: sound(s_golpe2,rand(25,50),256); END CASE 2: sound(s_golpe3,rand(25,50),256); END END nuevo_estado=_parado; // Cambia de estado y=440; // Cae al suelo END x+=inc_x; // Y mueve el muñeco un poco // Si se movia el muñeco, lo frena IF (inc_x<0) // Si se movia a la izquierda inc_x++; // Se frena END IF (inc_x>0) // Si se movia a la derecha inc_x--; // Se frena END IF (y<440) // Si estaba saltando y+=8; // Hace que baje END IF (y>=440) // Si estaba por debajo del limite inferior y=440; // Lo coloca END END CASE _muerto: // Comprueba si el muñeco ha muerto IF (paso==0) sound(s_muerto,25,256); // Hace el sonido de cuando muere END graph=anim13[paso++]; // Anima el gráfico hacia con una secuencia IF (paso==sizeof(anim13)) // Y la deja parada paso--; END x+=inc_x; // Mueve las coordenadas hasta cuadrarlas // Como el caso anterior (tocado) frena el muñeco IF (inc_x<0) inc_x++; END IF (inc_x>0) inc_x--; END IF (y<440) y+=8; END IF (y>=440) y=440; END END END IF (estado<>nuevo_estado) // Actualiza el estado del muñeco estado=nuevo_estado; paso=nuevo_paso; // Y el paso dentro de la animación nuevo_paso=0; END IF (x<60) // Comprueba que no se ha salido de pantalla x=60; // Y coloca el gráfico si ha salido END IF (x>900) x=900; END FRAME; END END //------------------------------------------------------------------------------ // Proceso sombra // Maneja la sombra de los muñecos //------------------------------------------------------------------------------ PROCESS sombra() BEGIN ctype=c_scroll; // Lo pone dentro del scroll graph=1; // Elige el gráfico priority=-1; // Le da prioridad baja para que se ejecute después z=1; // Lo pone por debajo del gráfico del muñeco y=440; // Inicializa la coordenada vertical flags=4; // Y hace que sea transparente LOOP x=father.x; // Hace que siga al muñeco FRAME; END END //------------------------------------------------------------------------------ // Proceso Polvo // Pone una nube de polvo cuando el muñeco cae del salto // Entradas: Coordenadas donde ira el gráfico //------------------------------------------------------------------------------ PROCESS polvo(x,y) BEGIN FRAME; ctype=c_scroll; // Lo pone dentro del scroll flags=4; // Lo hace transparente z=-1; // Lo pone por delante del muñeco FROM graph=2 TO 12;// Anima el gráfico FRAME; END // Acaba, eliminando este proceso END //------------------------------------------------------------------------------ // Proceso golpe // Maneja los golpes que lanzan los muñecos // Entradas: Coordenadas de donde se da realmente el golpe // 'daño' Energía que quita al enemigo //------------------------------------------------------------------------------ PROCESS golpe(x,y,daño) PRIVATE id_muñecos; // Identificador a los muñecos contador0; // Contador de uso general BEGIN ctype=c_scroll; // Introduce al proceso dentro del scroll z=-1; // Lo pone por delante de los muñecos graph=100; // Elige el gráfico de una bola para abarcar mas // Comprueba si esta tocando a un muñeco id_muñecos=collision(type muñeco); IF (id_muñecos==father) // Y que no sea él mismo que llamo a este proceso id_muñecos=collision(type muñeco); // Si es el mismo intenta coger el otro identificador END IF (id_muñecos) // Si ha tocado // Hace un sonido al azar de los disponibles SWITCH (rand(0,2)) CASE 0: sound(s_tocado1,rand(25,75),256); END CASE 1: sound(s_tocado2,rand(25,75),256); END CASE 2: sound(s_tocado3,rand(25,75),256); END END id_muñecos.paso=0; // Actualiza la animación del que ha sido tocado id_muñecos.energia-=daño/2; // Le quita energía IF (id_muñecos.energia<=0) // Si no le queda energía id_muñecos.energia=0; // Es que esta muerto id_muñecos.estado=_muerto; estado_juego=2; ELSE id_muñecos.estado=_tocado; // Si no, esta simplemente tocado END IF (id_muñecos.flags) // Mueve el gráfico un poco para atrás id_muñecos.inc_x=-8; ELSE id_muñecos.inc_x=8; END SWITCH(sangre) // Crea la sangre // Dependiendo del nivel elegido en las opciones CASE 0: // Golpe sin sangre golpe_sin_sangre(x,y); END CASE 1: // Golpe con sangre contador0=daño/3+1; WHILE (contador0>0) particula_sangre(x,y,id_muñecos.inc_x+rand(-2,2),rand(-4,0),rand(10,20)); contador0--; END END CASE 2: // Golpe con mucha sangre contador0=daño+2; WHILE (contador0>0) particula_sangre(x,y,id_muñecos.inc_x*2+rand(-4,4),rand(-8,2),rand(15,30)); contador0--; END END END END END //------------------------------------------------------------------------------ // Proceso particula_sangre // Maneja la sangre que sale cuando se da un golpe // Entradas: 'x,y' : Coordenadas desde donde sale la sangre // 'inc_x,inc_y': Incrementos en el movimiento de la sangre (caída) // 'cont_tiempo': Contador del tiempo que aparecerá la sangre //------------------------------------------------------------------------------ PROCESS particula_sangre(x,y,inc_x,inc_y,cont_tiempo) BEGIN ctype=c_scroll; // Lo pone dentro del scroll // Si esta en el modo de mayor sanguinolencia, espera un poco para que no salga toda junta IF (sangre==2) FRAME(rand(0,400)); // Espera un tiempo al azar END graph=rand(50,53); // Elige uno de los gráficos disponibles al azar flags=4; // La hace transparente z=-2; // Lo pone por encima de todo WHILE (cont_tiempo>0) // Mueve la sangre mientras hjaya tiempo x+=inc_x; // Realiza los incrementos en las coordenadas y+=inc_y; inc_y++; // Hace que cada vez caiga más rapido IF (inc_x>0) // Pero a horizontalmente se mueva más lento inc_x--; END IF (inc_x<0) inc_x++; END IF (y>410) // Comprueba si ha tocado el suelo // Deja sangre pegada al suelo de forma aleatoria IF (rand(0,80)==0 AND sangre_total<50 AND y<480) z=256; // La pone detrás sangre_total++; // Incrementa el contador de sangre LOOP FRAME; // La deja en un bucle para que quede en pantalla END END END cont_tiempo--; // Incrementa el contador de tiempo FRAME; END END //------------------------------------------------------------------------------ // Proceso golpe_sin_sangre // Pone un gráfico alternativo al de la sangre para los modos sin ella //------------------------------------------------------------------------------ PROCESS golpe_sin_sangre(x,y) BEGIN ctype=c_scroll; // Lo pone dentro del scroll z=-2; // Por delante de otros gráficos FROM graph=60 TO 66; FRAME; // Anima el gráfico END END //------------------------------------------------------------------------------ // Proceso objetos // Pone los gráficos estáticos del marcador y la pantalla de opciones // Entradas: fichero gráfico, coordenadas, gráfico, bandera (der/izq.), // zona de la pantalla //------------------------------------------------------------------------------ PROCESS objetos(file,x,y,graph,flags,region) BEGIN z=10; // Lo pone por debajo de otros gráficos LOOP FRAME; END END //------------------------------------------------------------------------------ // Proceso crea_estrellas // Maneja las estrellas que indican los combates ganados //------------------------------------------------------------------------------ PROCESS crea_estrellas() BEGIN // Elimina cualquier estrella que hubiera antes signal(type estrella,s_kill); // Pon las estrellas del jugador 1 SWITCH(combates1) // Dependiendo de los combates ganados pone unas estrellas u otras CASE 0: estrella(111,84,203); estrella(143,84,203); END CASE 1: estrella(111,84,204); estrella(143,84,203); END CASE 2: estrella(111,84,204); estrella(143,84,204); END END // Pon las estrellas del jugador 2 SWITCH(combates2) CASE 0: estrella(530,84,203); estrella(498,84,203); END CASE 1: estrella(530,84,204); estrella(498,84,203); END CASE 2: estrella(530,84,204); estrella(498,84,204); END END END //------------------------------------------------------------------------------ // Proceso estrella // Imprime los gráficos de la estrellas // Entradas: Coordenadas y tipo de gráfico de la estrella //------------------------------------------------------------------------------ PROCESS estrella(x,y,graph) BEGIN LOOP FRAME; // Lo imprime END END //------------------------------------------------------------------------------ // Proceso créditos // Pone la pantalla de créditos //------------------------------------------------------------------------------ PROCESS créditos() PRIVATE codigo_mapa; // Identificador al fichero de gráficos // Textos de los créditos textos[]= "PROGRAMADOR","DANIEL NAVARRO","", "GRAFISTAS","JOSE FERNANDEZ","RAFAEL BARRASO","", "SONIDOS","ANTONIO MARCHAL","", "JUGABILIDAD","LUIS F. FERNANDEZ","", "AGRADECIMIENTOS","FERNANDO PEREZ", "JORGE SANCHEZ","JAVIER CARRION","", "FOSTIATOR","DIV GAMES STUDIO"; BEGIN // Carga la pantalla de fondo codigo_mapa=load_map("fostiato\creditos.map"); load_pal("fostiato\creditos.map"); // Y el tipo de letras load_fnt("fostiato\creditos.fnt"); put_screen(0,codigo_mapa); // Pone el fondo FROM y=0 TO 19; // Y escribe los textos write(3,320,40+y*20,4,textos[y]); END fade_on(); // Enciende la pantalla scan_code=0; REPEAT // Espera hasta que se pulse una tecla FRAME; UNTIL (scan_code<>0) END //------------------------------------------------------------------------------ // Proceso intro // Realiza la intro del juego //------------------------------------------------------------------------------ PROCESS intro(); PRIVATE contador0; // Contador de uso general codigo_mapa; // Identificador para descargar los graficos s_intro; // Identificador del sonido de la intro BEGIN // Para el proceso general para poner este signal(father,s_sleep); // Hace que la pantalla cambie rapido set_fps(100,0); load_pal("fostiato\intro.map"); // Carga la paleta de colores codigo_mapa=load_map("fostiato\intro.map"); // Carga la pantalla s_intro=load_pcm("fostiato\introhit.pcm",0); // Carga el sonido fade(200,200,200,8); // Pone la pantalla en blanco WHILE (fading) FRAME; END // Espera hasta que se encienda la pantalla sound(s_intro,100,256); // Hace el sonido put_screen(0,codigo_mapa); // Pone el fondo de pantalla unload_map(codigo_mapa); // Descarga el grafico fade_on(); // Hace que se vea la pantalla (la enciende) WHILE (fading) FRAME; END // Espera hasta que se encienda la pantalla // Carga sonidos s_golpe1=load_pcm("fostiato\uah00.pcm",0); s_golpe2=load_pcm("fostiato\whimper2.pcm",0); s_golpe3=load_pcm("fostiato\whimper3.pcm",0); s_tocado1=load_pcm("fostiato\hit00.pcm",0); s_tocado2=load_pcm("fostiato\hit01.pcm",0); s_tocado3=load_pcm("fostiato\hit02.pcm",0); s_aire1=load_pcm("fostiato\turn06.pcm",0); s_aire2=load_pcm("fostiato\turn07.pcm",0); s_aire3=load_pcm("fostiato\turn08.pcm",0); s_aire4=load_pcm("fostiato\turn05.pcm",0); s_aire5=load_pcm("fostiato\turn09.pcm",0); s_muerto=load_pcm("fostiato\aaah01.pcm",0); // Carga los graficos y las letras load_fpg("fostiato\juego.fpg"); load_fnt("fostiato\enjuego.fnt"); load_fnt("fostiato\enjuego2.fnt"); // Espera a que se pulse una tecla o pase un tiempo WHILE (NOT key(_esc) AND NOT key (_space) AND contador0<200) FRAME; contador0++; END // Devuelve el control al proceso principal signal(father,s_wakeup); END